Membuat coding edit data 
Sekarang membuat edit 
Kita double klik button edit 
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Kita buat kondisi 

Jika buton edit. Text maka button edit text = simpan 

Kemudian button hapus text = batal 

Dicoba run 
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Ketika di tekan edit maka menjadi simpan 


Å 07.IPART7] CODING KODING EDIT DATA VB.NET.mp4 - VLC media player 
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Tools View Help 
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m) mp Gr Fs || 
Pas klik edit tombol diubah menjadi simpan 

Kemudian kita buat pas klik edit 

Textbox akan menjadi true 

Karna edit kodeadmin buat enable false tidak bisa diketik 

Kemudian kita buat 

Validasi ketika ada salah satu textbox yg kosong datanya tidak bisa disimpan 
Jadi 

Else if kodeadmin.text = kosong ‘’ maka muncul pesan 

Pilih data yg diedit 

Lalu 

Exit sub 

Kemudian else if yg lain 

Jgn lupa focus nya 

Lalu combo box satu nya 

Jadi pas disimpan 
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1 el uk Fs || 
Kemudian buat proses simpan nya 

Else nya kita buka koneksi databse nya 

Bukadb 


Buat dim edit as string 
Edit="update tbl admin set namaadmin’” & " field yg mau update 
Namadmin 
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Media Playback Audio Video Subtitle Tools View Help 
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WE) Rp om Fs 0 
Kemudian dibawah nya 

Enter 

Cmd =new odbc 

Kemudian ketik lagi cmd 

Cmd.executeNonOuery 

Kemudian buat pesan update data berhasil 

Kemudian klik oke maka akan tampil 


Tampildgv 
Yaitu akan menrefresh data gridview 
Kemudian pangil kondisiawal 
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TAMBAH | simpan | BATAL Diagnostics session: 40 seconds 


KODE ADMIN 
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WE) ke») ft Fisik — | 
Sudah berhasil update data 


Module 
System.Data.Odbc 


conn OdbcConnection 


Public cmd As OdbcCommand 
Public tempatDB As String 
Public rd As OdbcDataReader 
Public da As OdbcDataAdapter 
Public ds As DataSet 
Sub bukaDB() 
Try 
tempatDB = ("Driver=(MYSQL ODBC 3.51 
Driver);Database=db keuangan;uid=root") 
conn = New OdbcConnection(tempatDB) 
If conn.State = ConnectionState.Closed Then 
conn. Open() 
'MsgBox("Koneksi Database Berhasil", vbInformation, "Koneksi 
Sukses") 
End If 
Catch ex As Exception 
MsgBox ("Koneksi Database Gagal", vbExclamation, "Koneksi Gagal") 


End Try 
End Sub 


End Module 


Form 
Imports System.Data.Odbc 
Public Class form master 
Private Sub Buttonl Click(sender As Object, e As EventArgs) Handles 
Buttonl.Click 
bukaDB() 


End Sub 


Sub TIDAKSIAPDIISI() 


txtkodeadmin.Enabled = False 
txtnamaadmin.Enabled = False 
txtkatasandi.Enabled = False 


ComboBox1.Enabled = False 


End Sub 

Sub SIAPISI() 
txtkodeadmin.Enabled = True 
txtnamaadmin.Enabled = True 
txtkatasandi.Enabled = True 
ComboBox1.Enabled = True 

End Sub 


Sub KOSONGKANTEXT () 
txtkodeadmin.Text 
txtnamaadmin.Text 
txtkatasandi.Text 
ComboBox1.Text = "" 

End Sub 

Sub KONDISIAWAL () 
btntambah.Text = "TAMBAH" 
btnedit.Text = "EDIT" 
btnhapus.Text = "HAPUS" 

End Sub 

Sub ISICOMBOBOXI() 


ComboBox1. Items .Add ("ADMIN") 
ComboBox1. Items .Add ("USER") 
End Sub 


Sub TAMPILGDV() 
bukaDB() 
da = New OdbcDataAdapter( "SELECT kodeadmin, namaadmin, katasandi, level from 
tbl admin", conn) 
ds = New DataSet 
da.Fill(ds, "tbl admin") 
DataGridViewl.DataSource = ds.Tables("tbl admin") 
End Sub 


Sub URUTANOTOMATIS() 
bukaDB() 
Dim urutankode As String 
Dim hitung As String 
cmd = New OQdbcCommand( "SELECT * FROM tbl admin where kodeadmin in(select 
max(kodeadmin) from tbl admin)", conn) 
rd = cmd.ExecuteReader 
rd.Read() 
If Not rd.HasRows Then 
urutankode = "AGM" + "001" 
Else 
hitung = Microsoft.VisualBasic.Right(rd.GetString(0), 3) + 1 
urutankode = "ADM" + Microsoft.VisualBasic.Right("00" & hitung, 3) 
End If 
txtkodeadmin.Text = urutankode 
txtkodeadmin.Enabled = False 
End Sub 
Sub ATURGDV() 


DataGridViewl.Columns(0).Width = 130 
DataGridViewl.Columns(1).Width = 130 
DataGridViewl.Columns(2).Width = 130 


DataGridViewl.Columns(3).Width = 100 

DataGridViewl.Columns (0).HeaderText = "KODE ADMIN" 

DataGridViewl.Columns(1).HeaderText = "NAMA ADMIN" 

DataGridViewl.Columns(2).HeaderText = "KATA SANDI" 

DataGridViewl.Columns(3) .HeaderText = "LEVEL" 

DataGridViewl.ColumnHeadersDefaultCellStyle.Alignment = 
DataGridViewContentAlignment.MiddleCenter 

DataGridViewl.ColumnHeadersDefaultCellStyle.Font = New Font("Quicksand", 
10, FontStyle.Bold) 

DataGridViewl.DefaultCellStyle.Font = New Font("Quicksand", 9) 

DataGridViewl.AlternatingRowsDefaultCellStyle.BackColor = 
Color.GreenYellow 


End Sub 


Private Sub btntambah Click(sender As Object, e As EventArgs) Handles 
btntambah.Click 


Try 
If btntambah.Text = "TAMBAH" Then 
btntambah.Text = "SIMPAN" 
btnhapus.Text = "BATAL" 
SIAPISI() 
URUTANOTOMATIS() 


txtnamaadmin.Focus() 
ElseIf txtkodeadmin.Text = "" Then 
MsgBox ("Kode tidak boleh kosong", vbExclamation) 
txtkodeadmin.Focus() 
ElseIf txtnamaadmin.Text = "" Then 
MsgBox("Kode tidak boleh kosong", vbExclamation) 
txtnamaadmin.Focus() 
Elself txtkatasandi.Text = "" Then 
MsgBox ("Kata Sandi tidak boleh kosong", vbExclamation) 
txtkatasandi.Focus() 
ElseIf ComboBox1.Text = "" Then 
MsgBox("Level tidak boleh kosong", vbExclamation) 
ComboBox1.Focus() 
Else 
bukaDB() 
Dim simpan As String 
simpan = "INSERT INTO tbl admin values('" & txtkodeadmin.Text & 
"1!" & txtnamaadmin.Text & "','" & txtkatasandi.Text & "','" & ComboBox1.Text & 
A 
cmd = New OdbcCommand (simpan, conn) 
cmd.ExecuteNonQuery() 
MsgBox ("Data admin berhasil ditambah") 
KOSONGKANTEXT () 
TIDAKSIAPDIISI() 
KONDISIAWAL () 
TAMPILGDV () 


End If 
Catch ex As Exception 

MsgBox ("Data admin gagal ditambah") 
End Try 


End Sub 


Private Sub form master Load(sender As Object, e As EventArgs) Handles 
MyBase.Load 
TIDAKSIAPDIISI () 
ISICOMBOBOXL ( ) 
TAMPILGDV () 
ATURGDV () 
End Sub 


Private Sub btnhapus Click(sender As Object, e As EventArgs) Handles 
btnhapus.Click 
KOSONGKANTEXT ( ) 
TIDAKSIAPDIISI() 
KONDISIAWAL() 


End Sub 


Private Sub DataGridViewl CellContentClick(sender As Object, e As 
DataGridViewCellEventArgs) Handles DataGridViewl.CellContentClick 


End Sub 
Private Sub DataGridViewl CellMouseClick(sender As Object, e As 


DataGridViewCellMouseEventArgs) Handles DataGridViewl.CellMouseClick 
txtkodeadmin.Text = DataGridViewl.Rows(e.RowIndex) .Cells (0) .Value 


txtnamaadmin.Text DataGridViewl.Rows(e.RowIndex) .Cells(1). Value 

txtkatasandi.Text = DataGridViewl.Rows(e.RowIndex) .Cells (2). Value 

ComboBox1.Text = DataGridViewl.Rows(e.RowIndex) .Cells(3).Value 
End Sub 


Private Sub btnedit Click(sender As Object, e As EventArgs) Handles 
btnedit.Click 
If btnedit.Text = "EDIT" Then 
btnedit.Text = "SIMPAN" 
btnhapus.Text = "BATAL" 


SIAPISI() 
txtkodeadmin.Enabled = False 

Elself txtkodeadmin.Text = "" Then 
MsgBox("Pilih data yang mau di edit") 
Exit Sub 

Elself txtnamaadmin.Text = "" Then 


MsgBox("Nama admin tidak boleh kosong") 
txtnamaadmin.Focus() 
Exit Sub 
ElseIf txtkatasandi.Text = "" Then 
MsgBox("Kata Sandi tidak boleh kosong") 
txtkatasandi.Focus() 
Exit Sub 
ElseIf ComboBox1.Text = "" Then 
MsgBox("Level tidak boleh kosong") 
ComboBox1. Focus () 
Exit Sub 
Else 
bukaDB() 
Dim edit As String 
edit = "UPDATE tbl admin set namaadmin='" & txtnamaadmin.Text & 
"! katasandi='" & txtkatasandi.Text & "',level='" & ComboBox1.Text & "' WHERE 
kodeadmin="" & txtkodeadmin.Text & "'" 
cmd = New OdbcCommand (edit, conn) 
cmd .ExecuteNonQuery() 
MsgBox( "Data berhasil diubah") 
TAMPILGDV() 
KONDISTAWAL ( ) 
KOSONGKANTEXT ( ) 
TIDAKSIAPDIISI() 
End If 
End Sub 
End Class 


